

*panel a

use "panela.dta", clear

tw (line share_federal year, lp(longdash) lw(medthick)) (line share_business year, lp(shortdash) lw(medthick)) /*
*/ (line share_other year, lp(dash_dot) lw(medthick)) (line share_all year, lp(solid) lw(medthick)), /*
*/  graphregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) xlabel(1953(5)2018) /*
*/ plotregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) /*
*/ytitle(Percent) xtitle(year) legend(label(1 "Federal")  /*
*/ label(2 "Business") label(3 "Other nonfederal") label(4 "Total")) ytitle(Share of GDP)


*Panel b

use "panelb.dta", clear

tw (connected share_federal year, lw(medthick) msymbol(O)) if year>=2000&year<2019, /*
*/  graphregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) xlabel(2000(2)2018) /*
*/ plotregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) /*
*/ytitle(% of University R&D from Federal Government) xtitle("") 
